home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / ksgclock.zip / INCLUDE1.CH < prev    next >
Text File  |  1992-08-20  |  2KB  |  52 lines
  1. /*┌──────────────────────────────────────────────────────────────────────┐
  2.  ▌│ Program Name: INCLUDE1.CH                                            │
  3.  ▌└──────────────────────────────────────────────────────────────────────┘
  4.  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀            */
  5. #include "box.ch"
  6. #include "inkey.ch"
  7.  
  8. #xcommand CLOCK  [ <var> ]       ;
  9.                  [ROW <nRow>]    ;
  10.                  [COL <nCol>]    ;
  11.                               => ;
  12.                  [<var> :=] MCLOCK( <nRow>, <nCol>)
  13.  
  14. #define Panel( lHelp )     EVAL( { | cDefCol | cDefCol := SETCOLOR( 'w+/n' ),;
  15.             DISPBOX( 0, 0, MAXROW(), 79, '▓▓▓▓▓▓▓▓▓', 'b+/b' ),;
  16.             DEVPOS( MAXROW(), 0 ),;
  17.             IF( lHelp, DEVOUT( PADL( 'F1 - Help', 80 ),"W+/B" ),;
  18.              QQOUT() ), SETCOLOR( cDefCol ) } );;
  19.              DEVPOS( 0, 0 );;
  20.              DEVOUT( PADL( ' ',80 ), "W+/B")
  21.  
  22. #define Shad( nTR, nTC, nBR, nBC, lDoub, cClrs )  ;
  23.         DISPBOX( nTR+1, nTC+2, nBR+1, nBC+2, '░░░░░░░░░', 'w+/n' );;
  24.         DISPBOX( nTR, nTC, nBR, nBC, IF( lDoub, '╔═╗║╝═╚║ ',;
  25.         SPACE( 9 ) ), IF( EMPTY( cClrs ), NIL, cClrs ) )
  26.  
  27. #define BoxShad( nTR, nTC, nBR, nBC, cClrs );
  28.         RESTSCREEN( nTR + 1, nTC + 2, nBR + 1, nBC + 2,;
  29.         TRANSFORM( SAVESCREEN( nTR + 1, nTC + 2, nBR + 1, nBC + 2 ),;
  30.         REPLICATE( 'X', ( nBR-nTR+1 ) * ( nBC-nTC+1 ) ) ) );;
  31.         DISPBOX( nTR, nTC, nBR, nBC, '╔═╗║╝═╚║ ', cClrs )
  32.             
  33. #define SaveFullScreen()    cFullScreen := SAVESCREEN( 0, 0, 24, 79 )
  34. #define RestFullScreen()    RESTSCREEN( 0, 0, 24, 79, cFullScreen )
  35.  
  36. #define WaitKey( lCont,cClrs );
  37.         INKEY( 5 ); DEVPOS( 24, 0 ); DEVOUT( 'Press any key to ');;
  38.         DEVOUT( IF( lCont, 'Continue . . .', 'Exit . . .',cClrs) );;
  39.         INKEY( 60 )
  40.  
  41. #define Range( xVar, xExpr1, xExpr2 );
  42.         ( xVar >= MIN( xExpr1, xExpr2 ) .AND.;
  43.         xVar <= MAX( xExpr1, xExpr2 ) )
  44.  
  45. #define Beep()    Tone(300,3)
  46.  
  47. #define PressAnyKey();
  48.     EVAL( { | cDefCol | cDefCol := SETCOLOR( 'w+/n' ),;
  49.     DEVPOS( MAXROW(), 52 ), DEVOUT( 'Press any key to continue...'),;
  50.     SETCOLOR( cDefCol ), INKEY( 0 ) } )
  51.  
  52.